object ChordEdit: TChordEdit Left = 274 Top = 280 BorderIcons = [] BorderStyle = bsDialog Caption = ' ' ClientHeight = 307 ClientWidth = 508 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Arial' Font.Style = [] OldCreateOrder = True Position = poScreenCenter Scaled = False OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 17 object Bevel1: TBevel Left = 2 Top = 5 Width = 504 Height = 264 Style = bsRaised end object Label1: TLabel Left = 12 Top = 6 Width = 43 Height = 17 Caption = 'Name:' Layout = tlCenter end object Label2: TLabel Left = 12 Top = 68 Width = 94 Height = 17 Caption = 'Structure in C:' Layout = tlCenter end object Label3: TLabel Left = 296 Top = 53 Width = 49 Height = 23 Alignment = taRightJustify AutoSize = False end object PaintBox1: TPaintBox Left = 11 Top = 90 Width = 486 Height = 172 OnMouseDown = PaintBox1MouseDown OnMouseMove = PaintBox1MouseMove OnMouseUp = PaintBox1MouseUp OnPaint = PaintBox1Paint end object SpeedButton3: TSpeedButton Left = 437 Top = 61 Width = 30 Height = 28 Hint = 'Add notes' GroupIndex = 4 Down = True Glyph.Data = { C6000000424DC6000000000000007600000028000000100000000A0000000100 0400000000005000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF00000000 FFFFFF00000FFF0000FFF00000FFFFF0000F00000FFFFFF0000F00000FFFFFF0 000000000FFFFFF00000F0000FFFFFF00000F0000FFFFF00000FFF0000FFF000 00FFFFFF00000000FFFF} ParentShowHint = False ShowHint = True OnClick = SpeedButton3Click end object SpeedButton6: TSpeedButton Left = 467 Top = 61 Width = 30 Height = 28 Hint = 'Delete notes' GroupIndex = 4 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -18 Font.Name = 'Arial' Font.Style = [fsBold] Glyph.Data = { E6000000424DE60000000000000076000000280000000F0000000E0000000100 040000000000700000000000000000000000100000001000000000000000BDBD BD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00111111111111 111000000000111111100FFFFFF0011111100FFFFFF0F011111000000000FF01 111010FFFFFF0FF01110110FFFFFF0FF01101110FFFFFF0FF01011110FFFFFF0 FF00111110FFFFFF0F001111110FFFFFF0001111111000000000111111111111 11101111111111111110} ParentFont = False ParentShowHint = False ShowHint = True OnClick = SpeedButton6Click end object SpeedButton1: TSpeedButton Left = 436 Top = 16 Width = 60 Height = 43 Caption = 'Play' Glyph.Data = { 3E010000424D3E010000000000003600000028000000070000000B0000000100 1800000000000801000000000000000000000000000000000000BFBFBFBFBFBF BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBF000000BFBFBFBFBFBFBFBF BFBFBFBFBFBFBF000000BFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBF00 0000BFBFBF000000000000000000BFBFBFBFBFBFBFBFBF000000BFBFBF000000 000000000000000000BFBFBFBFBFBF000000BFBFBF0000000000000000000000 00000000BFBFBF000000BFBFBF000000000000000000000000BFBFBFBFBFBF00 0000BFBFBF000000000000000000BFBFBFBFBFBFBFBFBF000000BFBFBF000000 000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBF000000BFBFBFBFBFBFBFBF BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00 0000} Layout = blGlyphTop Spacing = 2 OnClick = SpeedButton1Click end object Edit1: TEdit Left = 12 Top = 27 Width = 127 Height = 25 TabOrder = 0 Text = 'Edit1' end object BitBtn1: TBitBtn Left = 298 Top = 274 Width = 101 Height = 29 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 1 NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 403 Top = 274 Width = 101 Height = 29 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 2 NumGlyphs = 2 end object ComboBox1: TComboBox Left = 12 Top = 27 Width = 145 Height = 25 Style = csDropDownList ItemHeight = 17 TabOrder = 3 OnChange = ComboBox1Change end object RadioGroup1: TRadioGroup Tag = 2 Left = 170 Top = 9 Width = 260 Height = 72 Caption = 'Inversion' Columns = 2 Items.Strings = ( 'Root position' '1. inversion' '2. inversion' '3. inversion') TabOrder = 4 OnClick = ComboBox1Change end end